home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-06_1988_-_de_Side_B.d64 / mission egg (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  14KB  |  418 lines
  1. 1 poke53280,0
  2. 2 a=a+1:ifa=1thenload"main",8,1
  3. 3 poke1202,0:poke1203,0:poke35584,177:poke33023,17:poke1200,0:poke1201,0
  4. 4 fori=1to10:n$(i)="cobra soft":hs(i)=1000:next:poke33043,4:goto990
  5. 98 poke1039,5:poke1047,7:poke1045,1:poke53265,65:poke1200,0:poke1201,0
  6. 100 print"[147][155]";:poke53265,65:poke53280,0:poke53281,13:poke53278,0
  7. 102 le=peek(1045)
  8. 106 ifle=1then1001
  9. 107 ifle=2then2001
  10. 108 ifle=3then2051
  11. 109 ifle=4then3001
  12. 110 ifle=5then3201
  13. 111 ifle=6then3101
  14. 112 ifle=7then3301
  15. 113 ifle=8then4001
  16. 114 ifle=9then5001
  17. 115 ifle=10then6001
  18. 116 ifle=11thenpoke1045,1:poke56325,40:goto100
  19. 990 v=53248:pokev+28,1
  20. 991 pokev+39,0:poke53285,1
  21. 999 poke53248+22,24:poke53282,0:poke53283,8:goto10000
  22. 1000 rem bild i
  23. 1001 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
  24. 1002 print"[204][205][206]         [161][161][161][161][161][161][182]       [149][212][213]
  25. 1003 [153]" (NULL)   printatnpeekasc    ]]]]getgetspc( list#     verify(NULL)(NULL)
  26. 1004 print"[209][210][211]  [153][200][201][203]        [161][161][161][161][161][182]  [161][161][161][182]
  27. 1005 [153]"     (NULL)(NULL)(NULL)     verify(NULL)(NULL) print]]]]]spc(  ]]getspc(
  28. 1006 print"[155]#     [208]      [149][214][215]           [153][161][
  29. 1007 [153]" verify(NULL)(NULL)  (NULL)(NULL)(NULL)             printatnpeekasc  getgetgetget
  30. 1008 print" [149][214][215]     [155]#    [153][196][198]  [155]#   [153][200][207][202]  ]]][161]
  31. 1009 [153]"getgetgetgetgetgetgetabs     left$(NULL)asc     left$chr$mid$     get
  32. 1010 print"[161][]]]][161][     [204][205][206]     [204][205][206]     [161]
  33. 1011 [153]"get[    ]spc(    getget(NULL)getgetgetabs   (NULL)    verify(NULL)(NULL)printget
  34. 1012 print"[161][ [149][212][213][153]       ]][210]]]][166]  [209][210][166][211]  [149][214][215][153][161]
  35. 1013 [153]"get[ verify(NULL)(NULL)        list#               ]
  36. 1014 print"[153][161][ [155]#  #               #
  37. 1015 [153]"printgetgetgetgetgetgetgetgetgetabs
  38. 1016 print"[166][166][166][166][166][166][166][166][166][166]       [196][195][198]
  39. 1017 [153]"                 left$right$mid$    verify(NULL)(NULL)
  40. 1018 print"[149][212][213]           [155]#   [153][204][205][206]    [149][214][215]
  41. 1019 [153]"verify(NULL)(NULL) list#              (NULL)
  42. 1020 print"    [153][193][194][198] [161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][182] [161][161][161][161][161][182]
  43. 1021 [153]"    left$right$mid$ ]]]]]]]]]]]]]]]]spc( ]]]]]spc(
  44. 1022 print"    [204][205][206]     [155]#
  45. 1023 [153]"     (NULL)    verify(NULL)(NULL) (NULL)(NULL)  (NULL)(NULL)
  46. 1024 print"    [209][210][211]   [149][214][215] [214][215]  [214][215]":poke1057,10:poke1047,7
  47. 1025 print"[155][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220]";:poke49152+999,104
  48. 1026 poke55296+999,15
  49. 1099 print"";
  50. 1100 printspc(30)"[168][220][168][220][168][220][168][220][168][220]";
  51. 1101 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
  52. 1102 printspc(30)"[168][220][166][151]score[166][155][220]";
  53. 1103 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
  54. 1104 printspc(30)"[168][220][166][149]00000[166][155][220]";
  55. 1105 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
  56. 1106 printspc(30)"[168][220][168][220][168][220][168][220][168][220]";
  57. 1107 printspc(30)"[220][168][220][168][220][168][220][168][220][168]";
  58. 1108 printspc(30)"[168][220][166][166][166][166][166][166][166][220]";
  59. 1109 printspc(30)"[220][168][166][166][150]h[166]i[166][166][155][168]";
  60. 1110 printspc(30)"[168][220][166][150]score[166][155][220]";
  61. 1111 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
  62. 1112 printspc(30)"[168][220][166][149]00000[166][155][220]";
  63. 1113 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
  64. 1114 printspc(30)"[168][220][168][220][168][220][168][220][168][220]";
  65. 1115 printspc(30)"[220][168][166][167][170][166][166][166][166][168]";
  66. 1116 printspc(30)"[168][220][166][185][175][166][149]0[166][166][155][220]";
  67. 1117 printspc(30)"[220][168][166][166][149][171][166][166][166][166][155][168]";
  68. 1118 printspc(30)"[168][220][166][166][178][166][149]3[166][166][155][220]";
  69. 1119 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
  70. 1120 printspc(30)"[168][220][152]jumps[166][149]5[155][220]";
  71. 1121 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
  72. 1122 printspc(30)"[168][220][166][166][166][166][166][166][166][220]";
  73. 1123 a=peek(1200):b=peek(1201):d=35
  74. 1124 z=a*25+b*200
  75. 1125 ifz>9999thend=32:goto1128
  76. 1126 ifz>999thend=33:goto1128
  77. 1127 ifz>99thend=34:goto1128
  78. 1128 poke211,d:poke214,5:sys58640:print"[149]"z"";
  79. 1129 poke211,d:sys58640:ifd=32then1131
  80. 1130 print"[149]0";:goto1132
  81. 1131 print"[149][166]";
  82. 1132 a=peek(1202):b=peek(1203):d=35
  83. 1134 z=a*25+b*200
  84. 1135 ifz>9999thend=32:goto1138
  85. 1136 ifz>999thend=33:goto1138
  86. 1137 ifz>99thend=34:goto1138
  87. 1138 poke211,d:poke214,13:sys58640:print"[149]"z"";
  88. 1139 poke211,d:sys58640:ifd=32then1141
  89. 1140 print"[149]0";:goto1142
  90. 1141 print"[149][166]";
  91. 1142 a=peek(1039)
  92. 1143 poke211,35:poke214,19:sys58640:print"[149]"a"";:print"[157][157][157][149][166]";
  93. 1144 a=peek(1047):poke211,37:poke214,21:sys58640
  94. 1145 print"[149]"a"":print"[145][145][157][157][157][166]";
  95. 1150 poke53265,155
  96. 1200 sys25778
  97. 1201 a=peek(1039):ifa=0then1203
  98. 1202 goto100
  99. 1203 a=peek(1200):b=peek(1201):e=peek(1202):f=peek(1203)
  100. 1204 sc=sc+(a*25):sc=sc+(b*200)
  101. 1205 ifsc>hs(10)then9200
  102. 1206 goto10000
  103. 2000 rem bild 2
  104. 2001 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
  105. 2002 print"             [149][212][213]       [153][200][201][202]
  106. 2003 [153]"atnpeekascprintatnpeekval str$peekasc   verify(NULL)(NULL)  (NULL)(NULL)   print(NULL)(NULL)(NULL)
  107. 2004 print"[200][201][202][153][200][207][202] [200][201][202]       [149][214][215]    [208]   [212][213][153]
  108. 2005 [153]"(NULL)(NULL)(NULL)print(NULL)right$(NULL) print(NULL)(NULL)(NULL)    str$(NULL)asc     (NULL)(NULL)(NULL)  verify(NULL)(NULL)
  109. 2006 print" [208]  [208]   [208]     [153][200][203][202]
  110. 2007 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)    left$chr$mid$   getgetgetgetgetgetgetgetabs
  111. 2008 print"     [149][212][213]       [153][204][205][206]   [161][161][]]]]][166]
  112. 2009 [153]"verify(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)        (NULL)  (NULL)(NULL)printgetget[verify(NULL)(NULL) (NULL)(NULL)
  113. 2010 print"[214][215] [214][215]         [209][210][211] [214][215][153][161][161][[149][214][215] [214][215]
  114. 2011 [153]"printgetgetgetgetgetgetgetgetgetabs          getgetgetgetgetgetget[
  115. 2012 print"]]]]]]]][161][      [161][182]  [161][161][161][161][161][161][161][
  116. 2013 [153]"        ]spc(      get[  ]]]]]]get[list#
  117. 2014 print" #[153][193][195][198]     [193][194][198]   [161][ [155]# #  [149][212][213][153][161][166]
  118. 2015 [153]"  left$(NULL)mid$     left$(NULL)mid$   getgetgetgetgetabs  verify(NULL)(NULL)printget[ atn
  119. 2016 print"  [204][205][206]     [204][205][206]   ]]]][161][  [161][161][161][ [200]
  120. 2017 [153]"list#  (NULL)       (NULL)        printget[  get[]spc( (NULL)
  121. 2018 print"  [209][210][211]     [209][210][211]    [149][212][213] [153][161][  [161][
  122. 2019 [153]"                 verify(NULL)(NULL) print]spc(  get[   (NULL)
  123. 2020 print"   [155]#             # #  ##[153][161][ [149][212][213]
  124. 2021 [153]"pokeicdwait            printgetgetgetgetgetgetgetgetgetget[ verify(NULL)(NULL)
  125. 2022 print"[151]mnncd[146] abicd[146]    ]]]]]]]]]][166]
  126. 2023 [153]"mn mmimmnghwait      list#poke
  127. 2024 print"mnmmn mgh[146]":poke1057,12:poke1047,4
  128. 2025 goto1025
  129. 2050 rem bild 3
  130. 2051 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
  131. 2052 print"[194][198] [200][201][202][204][205][199][203][202][193][195][197]   [196][194][198] [149][212][213] [153][200][207][202]
  132. 2053 [153]"right$mid$ (NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)left$right$mid$peekasc left$right$mid$ verify(NULL)(NULL) print(NULL)(NULL)(NULL) list#print
  133. 2054 print"[205][202][194][198][208] [193][195][197][208] [204][205][202][201][202] [204][205][206]  [193][194][197][208]  [193][194][197]
  134. 2055 [153]"(NULL)left$right$mid$(NULL)(NULL)left$right$mid$peekascatnpeekright$right$mid$peekval(NULL) list#print left$(NULL)mid$(NULL)(NULL) left$chr$(NULL)
  135. 2056 print"[210][204][205][206]  [204][205][202][201][201][200][199][202][205][200][201][202][210][196][194][198][204][205][206]   [204][205][206]
  136. 2057 [153]"list#print (NULL) atnpeekasc(NULL)(NULL)mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)mid$(NULL) left$right$mid$ (NULL)  verify(NULL)(NULL)print (NULL)
  137. 2058 print" [193][195][197][200][201][202][210][211][208]  [208][209][210][211][208]  [204][205][206][209][210][211] [149][214][215][153][209][210][211]
  138. 2059 [153]" left$right$mid$(NULL)right$(NULL) (NULL)(NULL)(NULL)atnpeekasc (NULL)(NULL)(NULL)  (NULL)  atnpeekval  atnlen
  139. 2060 print" [204][201][206] [208]     [200][201][202] [155]# [153]  [209][210][211] [200][201][202]  [200][207]
  140. 2061 [153]"  (NULL) (NULL)(NULL)(NULL) verify(NULL)(NULL) print(NULL)(NULL)(NULL)  atnpeekval    (NULL)mid$(NULL) list#print(NULL)(NULL)
  141. 2062 print" [209][210][211]    [149][214][215] [153] [208]   [200][199][202]     [208]    [208]
  142. 2063 [153]"getgetgetgetgetgetgetgetgetabs (NULL)(NULL)(NULL)  (NULL)(NULL)(NULL)    (NULL)(NULL)(NULL) getget[
  143. 2064 print"[161][]]]]]][161][       [208]         ][161][
  144. 2065 [153]"get[verify(NULL)(NULL)(NULL)(NULL)  printget[  verify(NULL)(NULL)  (NULL)(NULL)(NULL)   (NULL)(NULL)print    get[eady.
  145. 2066 print"[161][[149][214][215][214][215]  [153][161][  [149][214][215]        [214][215][153]    [161][
  146. 2067 [153]"getgetgetgetget[  get[                  get[
  147. 2068 print"]]]][161][  [161][161][161][161][161][  [193][194][197] [161][161][161][161][161][161][182] ][166]
  148. 2069 [153]"    get[  ]]]]]spc(  left$right$mid$ get[]]]]spc(
  149. 2070 print"[149][212][213]  [153][161][        [149][212][213][153][204][205][206] [161][     [149][212][213][153]
  150. 2071 [153]"verify(NULL)(NULL)  print]spc(    list# # verify(NULL)(NULL) (NULL)  printget[atnpeekval verify (NULL)(NULL)print
  151. 2072 print"        [161][161][161][161][161][161][161][161][161][161][161][161][161][[200][201][202]
  152. 2073 [153]"  get[    get[]]]]]]]]]]]spc((NULL)(NULL)(NULL)
  153. 2074 print"[155]# [153][161][161][161][161][161][161][161][ [155]# ##  #     [208]":poke1057,10:poke1047,5
  154. 2075 goto1025
  155. 3000 rem bild 4
  156. 3001 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
  157. 3002 print" [200][201][202]      [200][207][202]    [200][207][205]      [149][212][213][153]
  158. 3003 [153]" (NULL)(NULL)(NULL)  atnpeekval (NULL)(NULL)(NULL)atnpeekasc (NULL)(NULL)(NULL)  str$lenasc verify(NULL)(NULL)print
  159. 3004 print"  [208] [155]#[153] [200][199][202]  [208] [200][201][202]  [208]   [200][201][202]
  160. 3005 [153]" (NULL)(NULL)(NULL)  (NULL)mid$(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)  (NULL)mid$(NULL)
  161. 3006 print"       [208]      [208]        [208]
  162. 3007 [153]"getgetgetabs  (NULL)(NULL)(NULL) verify(NULL)(NULL)print (NULL)(NULL)(NULL)  str$lenval (NULL)(NULL)(NULL)
  163. 3008 print"]][161][      [149][214][215][153]      [200][207][201]     [155]#[153]
  164. 3009 [153]"  get[ getgetgetgetgetgetgetgetgetabs list#print (NULL)(NULL)(NULL)  verify(NULL)(NULL)list
  165. 3010 print"# ][166] ]]]]]]][153][161][161][[182]   [208]   [149][214][215][155]
  166. 3012 [153]" #      verify(NULL)(NULL)print  getgetget[  (NULL)(NULL)(NULL)
  167. 3013 print"        [149][214][215][155] #[153][161][161][161][       [155]#[153]
  168. 3014 [153]"getabs  getgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetabs
  169. 3015 print"][166]  ]]]]]][161][]]]]]]]]]]]]]]]]][166]
  170. 3017 [153]"        list#print get[     pokeabcdadabi i iwait
  171. 3018 print" [155]#  [153][161][161][161][161][161][161][161][  [151]abi             [146]
  172. 3019 [153]"    ]]]]]]]spc(ab kk    ghefkgfkkwait
  173. 3020 print"[153][193][194][197]  [155]#[151]  abii gh[146]  efgh[146]
  174. 3021 [153]"printleft$right$mid$   pokeab   ghwait         verify(NULL)(NULL)
  175. 3022 print"[153][204][205][206] [155][163][174][163][174][163][174][163][174][163]   [153][193][194][198]   [149][214][215]
  176. 3023 [153]" (NULL)   pokeowaitcosfrecosfrecospwait    print(NULL)(NULL)(NULL)  list#   verify(NULL)(NULL)poke
  177. 3024 print"[209][210][211] ab   gh[146]      [208]       [149][214][215]
  178. 3025 [153]"pokedabi    jwait     verify(NULL)(NULL)(NULL)(NULL)(NULL)   list#
  179. 3026 print"[151]       gh[146]  [155]#  [149][214][215]":poke1057,7:poke1047,6
  180. 3027 goto1025
  181. 3100 rem bild 5
  182. 3101 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
  183. 3102 print"  [161][161][[200][203][202]  [149][212][213]      [212][213]    [153][193][195][197]
  184. 3103 [153]"  getget[(NULL)(NULL)(NULL)  verify(NULL)(NULL) (NULL)(NULL) printatnascverify(NULL)(NULL) (NULL)(NULL) printleft$chr$mid$
  185. 3104 print"[149][212][213]]][166] [208]   [153][161][161][[149][214][215] [153][200][201][197]  [149][214][215] [153][204][205][206]
  186. 3105 [153]"verify(NULL)(NULL) list# (NULL)(NULL)(NULL)  printgetget[   (NULL)(NULL)(NULL)      (NULL)
  187. 3106 print"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][  [208]  [161][161][161][161][166][210][211]
  188. 3107 [153]"]]getget[]]]]]]getgetget[ (NULL)(NULL)(NULL) getget[]spc( verify(NULL)(NULL)print
  189. 3108 print"  [161][161][  [155]#   [153][161][161][161][     [161][161][   [149][214][215][153]
  190. 3109 [153]"  getget[ getgetgetgetgetgetgetgetgetgetget[  getgetget[ getget[
  191. 3110 print"  [161][161][ ]][161][161][161][]][161][161][161][161][161][161][161][161][161][ [161][161][
  192. 3111 [153]"  getget[verify(NULL)(NULL) printgetgetget[  getgetgetgetgetgetgetgetget[ getget[
  193. 3112 print"  [161][161][[149][214][215][153] ][161][161][[149][212][213][153]]]]]]]][161][161][ [161][161][
  194. 3113 [153]"list# printgetget[ atnasc getget[verify(NULL)(NULL)     (NULL)(NULL)]]spc( printgetget[
  195. 3114 print"  [161][161][[153][193][199][202] [161][161][ [155]# [153][161][161][ [149][214][215] [155]# #[153][161][161][
  196. 3115 [153]"  getget[(NULL)(NULL)(NULL) getgetgetgetgetgetgetget[verify(NULL)(NULL)printgetgetgetgetgetgetget[
  197. 3116 print"[149][212][213][153]]][166] [208]  ]]]]]]]][166][149][214][215][153][161][161][161][]]][166]
  198. 3117 [153]"verify(NULL)(NULL)   (NULL)(NULL)(NULL)   list# #   #  printgetgetget[
  199. 3118 print"  [161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][ [149][212][213][153]
  200. 3119 [153]"  ]]]]]]]]]]]]]]]]]]getgetget[ verify(NULL)(NULL)poke
  201. 3120 print"    abmmmgh[146][153][193][195][198]   [196][195][198]][161][161][   [149][212][213][155]
  202. 3121 [153]" tab(^tab(^tab(^tab(^tab( printleft$right$mid$ verify(NULL)(NULL)printleft$right$mid$ ]get[verify(NULL)(NULL) (NULL)(NULL)
  203. 3122 print"  [151]o[146][190][184][190][184][190][151]p[146]  [153][204][207][206] [149][214][215][153][204][205][206]  ][166][149][214][215]
  204. 3123 [153]" pokeabmnmghwait    (NULL)     (NULL)
  205. 3124 print"bmnngh[146]     [209][210][211]   [209][210][211]":poke1057,15:poke1047,8
  206. 3125 goto1025
  207. 3200 rem bild 6
  208. 3201 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
  209. 3202 print"[153][193][194][198][196][194][198][196][195][197][193][195][197][193][195][198]   [193][194][197][193][194][198][196][195][197][193][194][198]
  210. 3203 [153]"left$right$mid$left$(NULL)mid$(NULL)right$mid$left$(NULL)mid$left$right$mid$atnpeekvalleft$chr$mid$left$(NULL)mid$chr$right$mid$left$(NULL)mid$
  211. 3204 print"[204][205][206][204][199][206][204][205][206][204][201][206][204][205][206][204][205][206][204][207][206][204][205][206][204][199][206][204][199][206]
  212. 3205 [153]" (NULL) list#(NULL) #(NULL)# (NULL)  (NULL)  (NULL)# (NULL)  (NULL) #(NULL)  (NULL)
  213. 3206 print"[209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211]
  214. 3207 [153]"verify(NULL)(NULL) (NULL)(NULL)   (NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)  (NULL)(NULL)    (NULL)(NULL)
  215. 3208 print"[214][215] [214][215]   [214][215][214][215][214][215] [214][215]  [214][215]  [155]# [149][214][215]
  216. 3209 [153]"printasc atnpeekvalatnlenvalstr$lenval   str$lenvalatnpeekasc atnlenval atnpeekval
  217. 3210 print"[202] [200][201][202][200][205][202][200][199][202][149][212][213] [153][200][207][202][200][201][201] [200][199][202] [200][203][202]
  218. 3211 [153]"(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)verify(NULL)(NULL) print(NULL)chr$(NULL)(NULL)(NULL)(NULL) (NULL)chr$(NULL) (NULL)(NULL)(NULL)
  219. 3212 print"   [208]  [208]  [208]     [208]  [208] [155]# [208]   [208]
  220. 3213 [153]"(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)   (NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)(NULL)
  221. 3214 print"[153][161][161][161][161][161][161][161][161][161][161][161][[149][212][213]  [153][161][161][161][161][161][161][161][161][161][161][161][161][
  222. 3215 [153]"getgetgetgetgetgetgetgetgetgetget[verify(NULL)(NULL)  printgetgetget[]]]]]]]]spc(
  223. 3216 print"[161][161][]]]]][161][161][161][    [161][161][161][ [149][212][213] [212][213] [155]#[153]
  224. 3217 [153]"getget[     getgetgetgetget[  getgetget[ verify(NULL)(NULL) (NULL)(NULL)print
  225. 3218 print"[161][161][ [149][212][213][212][213][153][161][161][161][161][161][  [161][161][161][161][161][161][161][161][161][161][161][161][161][161]
  226. 3219 [153]"getget[ verify(NULL)(NULL)(NULL)(NULL)print]]]]]spc(verify(NULL)(NULL)print]]]]]]]]printgetgetget[]]
  227. 3220 print"[161][161][   [155]#       [149][214][215]   [155]#    [153][161][161][161][
  228. 3221 [153]"getget[ getgetgetgetgetgetgetget[ getgetgetget[ str$lenval getgetget[
  229. 3222 print"[161][161][ [161][161][161][161][161][161][161][161][ ][161][161][161][ [200][203][202] [161][161][161][
  230. 3223 [153]"getget[ ]]getgetget[]]spc(  getgetget[ (NULL)(NULL)(NULL) ]]]spc(
  231. 3224 print"[161][161][   [161][161][161][ [155]#  [153][161][161][161][161][[155]# [153][208]":poke1057,15:poke1047,7
  232. 3225 goto1025
  233. 3300 rem bild 6
  234. 3301 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
  235. 3302 print"[151]              n  nghef  nm  m [146]
  236. 3303 [153]"m nm  n   n   mnghwaitprintstr$peekval pokeehefkkkkwait
  237. 3304 print"kgfkkmnm nmnnmgh[146]  [153][200][203][202]
  238. 3305 [153]" (NULL)peekasc pokeefkkkkkghwait    print(NULL)(NULL)(NULL) verify(NULL)(NULL)printgetabsstr$lenasc
  239. 3306 print" [200][201][202] [161][161][161][161][161][161][161][161][161][161][182]   [208] [149] [214][215][153][161][[200][201][202]
  240. 3307 [153]" (NULL)(NULL)sin ]]]]]]]]getget[  (NULL)(NULL)(NULL)  getget[(NULL)right$(NULL)
  241. 3308 print"  [208]  [149][212][213][212][213] [212][213] [153][161][161][  [161][161][161][ [161][161][ [208]
  242. 3309 [153]" (NULL)(NULL)(NULL) verify(NULL)(NULL)(NULL)(NULL) (NULL)(NULL) printgetget[  getgetget[ ]get[(NULL)(NULL)(NULL)
  243. 3310 print"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][  [161][161][161][  [161][  [149][212][213][153]
  244. 3311 [153]"getgetget[]]]]]]]]]]]spc(verify(NULL)(NULL)printgetget[spc(verify(NULL)(NULL)printgetget[absverify(NULL)(NULL)print
  245. 3312 print"[161][161][161][     [155]### #  [149][214][215][153][161][161][[155]#[149][214][215][153][161][161][161][ [155]#[153]
  246. 3313 [153]"getgetget[verify(NULL)(NULL) printgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetget
  247. 3314 print"[161][161][161][[149][214][215][153] ]]]]]]]]]]]]]]]]]]]]]]][161]
  248. 3315 [153]"getgetget[   list#    verify(NULL)(NULL)list      #     #   printget
  249. 3316 print"[161][161][161][ [149][212][213][153][161][161][161][[155]#[149][214][215][153][161][161][161][161][161][161][161][161][161][161][161][161][161][182][155]# [153][161]
  250. 3317 [153]"getgetget[ verify(NULL)(NULL)printgetgetgetgetgetgetgetgetgetgetgetgetgetget[]]getgetget[  get
  251. 3318 print"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][[149][212][213][153]]]][166][149][212][213][153][161]
  252. 3319 [153]"getgetget[]]]]]]]]]]]]]]]]]spc(verify(NULL)(NULL)    (NULL)(NULL)printget
  253. 3320 print"[161][161][   [155]#    #       #  [153][161][161][161][161][161][161][161][161][161]
  254. 3321 [153]"get[verify(NULL)(NULL)printgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetget[]]]]]]
  255. 3322 print"[161][[149][214][215][153]]]]]]]]]]]]]]]]]]]]][166][149][212][213] [155]# #[153]
  256. 3323 [153]"get[              list#        verify(NULL)(NULL)(NULL)(NULL)print
  257. 3324 print"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][     [149][214][215]":poke1057,15:poke1047,8
  258. 3325 goto1025
  259. 4000 rem bild 7
  260. 4001 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][149]";
  261. 4002 print"[212][213] [212][213]  [212][213] [153][161][161][161][ [149][212][213]
  262. 4003 [153]"(NULL)(NULL) (NULL)(NULL)  (NULL)(NULL) printgetgetget[ verify(NULL)(NULL) list#    verify(NULL)(NULL)printgetgetgetgetgetget
  263. 4004 print"  [161][161][161][161][161][161][182] [161][161][161][  [161][161][161][161][161][182] [149][214][215][153][161][161][161]]]]
  264. 4005 [153]"  getget[]]]spc(  getget[  getgetget]]spc(   ]]]spc(
  265. 4006 print"[155]# [153][161][161][  [155]# # [153][161][161][ [161][161][161][[166]      [155]#[153]
  266. 4007 [153]"getgetgetgetgetgetgetgetgetgetgetgetget[ getgetget[ pokeabiicdadprintwait
  267. 4008 print"[161][161][161][161][161][161][161][161][161][161][161][161][161][ [161][161][[151]abmn nmm nii[153][146]
  268. 4009 [153]"]]]get[]]]]]]]]spc( getget[pokelmn      m nverifywait
  269. 4010 print"[212][213] [153][161][   [149][212][213]    [153][161][161][161][[151]efmn         [149][146]
  270. 4011 [153]"(NULL)(NULL) printget[atnlenvalverify(NULL)(NULL)printstr$peekasc getget[spc(  pokeln    mn n printwait
  271. 4012 print"  [161][161][[200][203][202]  [200][201][202] [161][161][ [151]abm n  n ghe[155][146]
  272. 4013 [153]" #printgetget[(NULL)(NULL)(NULL)list# print(NULL)(NULL)(NULL) getget[ pokeln    mmjlistwait #
  273. 4014 print"# [153]]][166] [208]    [208]  [161][161][ [151]ln   m gh[153][146] [196][195]
  274. 4015 [153]"     getgetgetgetgetgetgetgetgetgetget[ pokel    ghprintwait   left$(NULL)
  275. 4016 print" [155][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163] #[153][204][205]
  276. 4017 [153]" owaitfrecosgetgetgetgetgetgetgetgetgetgetgetpokecosfrecosfrecosfrecosfrecospverifywait    (NULL)
  277. 4018 print"[212][213] [153][161][161][161][161][161][161][161][161][161][]][151] mn mn nj[149][146]    [209][210][211]
  278. 4019 [153]"(NULL)(NULL) print]]]getgetget[]]spc(list# pokelm n   njverifywait (NULL)(NULL)
  279. 4020 print"  [155]#   [153][161][161][161][[155]## ##[151]efm   m j[149][146] [214][215] [212][213]
  280. 4021 [153]"(NULL)(NULL)    printgetgetgetgetgetget[ get[abspokeln   njverifywait    (NULL)(NULL)
  281. 4022 print"[214][215] [212][213] [153]]]][161][161][161][ [161][161][[151]ef     cd[149][146]
  282. 4023 [153]"(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)print]get[spc(list#print]]spc(verify(NULL)(NULL)pokelmm   jverifywait
  283. 4024 print"[214][215]   [214][215][214][215] [153][161][ [155]# ##[149][214][215][151]lm    j[146]":poke1057,16:poke1047,6
  284. 4025 goto1025
  285. 5000 rem bild 8
  286. 5001 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][155]";
  287. 5002 print"  #  [153][161][161][161][161][161][161][161][161][161][161][161][161][161][  [149][212][213][212][213][153]
  288. 5003 [153]"atnpeekascverify(NULL)(NULL)print]getgetgetgetgetgetgetgetgetget]]spc(  verify(NULL)(NULL)(NULL)(NULL) printatnlenval
  289. 5004 print"[200][201][202][149][214][215] [153]]]]]]]]]]][166] [196][194][197]     [200][201][202]
  290. 5005 [153]"(NULL)(NULL)(NULL) str$lenval list# ##  #   printleft$(NULL)mid$getgetabs  (NULL)(NULL)(NULL)
  291. 5006 print" [208]  [200][201][202]  [149][212][213]   [153][161][161][182] [204][205][206][161][161][   [208]
  292. 5007 [153]"(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)  verify(NULL)(NULL) printgetgetgetget[  (NULL) getgetget[ (NULL)(NULL)(NULL)
  293. 5008 print"     [208]  [161][161][161][161][161][161][161][161][ [209][210][211][161][161][161][161][
  294. 5009 [153]"str$lenval (NULL)(NULL)(NULL) getget[]]]getgetgetgetgetgetgetget[]]spc(
  295. 5010 print"[200][203][202][161][161][161][161][161][161][161][   [161][161][]]]][161][ [149][212][213] [212][213][153]
  296. 5011 [153]"(NULL)(NULL)(NULL)getgetgetgetgetgetget[ verify(NULL)(NULL)printgetget[    get[ verify(NULL)(NULL) (NULL)(NULL)print
  297. 5012 print" [208] ]]]]][161][161][ [149][214][215][153][161][161][ [149][212][213] [153][161][161][161][161][
  298. 5013 [153]"(NULL)(NULL)(NULL) list#   printgetget[   getget[ verify(NULL)(NULL) printgetgetgetgetgetget[verify
  299. 5014 print"     [212][213] [153][161][161][[149][212][213] [153][161][161][  [149][212][213][153][161][]]]][166]
  300. 5015 [153]" atnlenval verify(NULL)(NULL) printgetget[verify(NULL)(NULL) printgetget[verify(NULL)(NULL)(NULL)(NULL)printget[    list#print
  301. 5016 print" [200][201][202]   [161][161][161][   [161][161][[149][214][215]  [153][161][161][ [155]#[153]
  302. 5017 [153]" (NULL)mid$(NULL)getgetgetgetgetget[ list# printgetget[verify(NULL)(NULL)(NULL)(NULL)printgetget[ str$peekval
  303. 5018 print"  [208] [161][161][][161][161][   [161][161][[149][214][215][214][215][153][161][161][ [204][205][206]
  304. 5019 [153]" (NULL)(NULL)(NULL)getget[ ]]spc(atnval getget[ verify(NULL)(NULL) printgetget[  (NULL)
  305. 5020 print"[196][195][197] [161][161][   [196][203][202][161][161][161][ [149][214][215] [153][161][161][161][[209][210][211]
  306. 5021 [153]"(NULL)(NULL)(NULL) getget[  list#print(NULL)(NULL)(NULL)getgetget[verify(NULL)(NULL)(NULL)(NULL)printgetgetget[
  307. 5022 print" [208]  [161][[166]    [208] [161][161][161][[149][214][215][214][215][153][161][161][161][
  308. 5023 [153]"(NULL)(NULL)(NULL) get[ list#  print(NULL)(NULL)(NULL)getgetget[ getgetgetgetgetget[
  309. 5024 print"    [161][[155]#  # ##[153][161][161][161][161][161][161][161][161][161][161][161][":poke1057,17:poke1047,5
  310. 5025 goto1025
  311. 6000 rem bild 9
  312. 6001 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][149]";
  313. 6002 print"[212][213] [212][213][212][213] [153][161][161][   [149][212][213]    [212][213]
  314. 6003 [153]"(NULL)(NULL) (NULL)(NULL)(NULL)(NULL) printgetget[   verify(NULL)(NULL)  list# verify(NULL)(NULL)    printatnlenval
  315. 6004 print"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][182][200][207][202]
  316. 6005 [153]"getgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetget[]]]]getgetget[(NULL)(NULL)(NULL)
  317. 6006 print"]]]]]]]]][161][161][161][]]]][166] [155]#  [153][161][161][161][ [208]
  318. 6007 [153]"   verify(NULL)(NULL) list# #printgetgetget[ verify(NULL)(NULL)  (NULL)(NULL)  printgetget[ (NULL)(NULL)(NULL)verify
  319. 6008 print" [212][213][214][215][153][161][161][161][161][161][161][161][ [149][214][215]  [214][215]  [153][161][[149]
  320. 6009 [153]" (NULL)(NULL)  print]]]]getgetgetgetgetgetgetgetabs str$lenvalget[ atnlenval
  321. 6010 print"[161][161][161][161][182]    [161][161][]]][161][161][ [200][203][202]][166] [200][201][202]
  322. 6011 [153]"getgetgetget[ verify(NULL)(NULL) printgetget[ verify(NULL)(NULL)print]]spc( (NULL)(NULL)(NULL) verify(NULL)(NULL)print(NULL)(NULL)(NULL)
  323. 6012 print"]][161][161][ [149][214][215] [153]]][166] [149][214][215] [155]#   [208]  [149][214][215] [208][153]
  324. 6013 [153]"  getget[     list#  #    #(NULL)(NULL)(NULL)   (NULL)(NULL)(NULL)print
  325. 6014 print"  [161][[166] [151]abiiicdadabiiiiiiicd[146]
  326. 6015 [153]"  printget[pokeabmnmnm  nm  nmnmn nnmiiiiwaitlist
  327. 6016 print"# [153][161][[151]efkm n     n         m nmn[146][153]
  328. 6017 [153]"  get[   pokeef nmn nkkmnmmknmn mn mwaitprint
  329. 6018 print"  [161][161][161][161][  [151]ehefgh[146]  efgh[146] ehefkkkk[146][153]
  330. 6019 [153]"  getgetgetgetgetgetgetgetget[   get[ list# print getgetgetget[verify
  331. 6020 print"[212][213][153]]]]]]]][161][161][[149][212][213] [153][161][  [149][212][213][153][161][161][][166]
  332. 6021 [153]"verify(NULL)(NULL) list## # #printgetget[verify(NULL)(NULL) printgetget[ verify(NULL)(NULL)printget[
  333. 6022 print"[151]iiiiiiicbiiiiiiiiiiicd[146]
  334. 6023 [153]"mnm n nm  n nm nmnmn niicdwait
  335. 6024 print"         m     nm   nm m miiii[146]":poke1057,15:poke1047,6
  336. 6025 goto1025
  337. 9000 rem hall of fame
  338. 9002 poke53265,65:print"[147]";:printtab(14)"[149]hall of fame":print"";
  339. 9003 fort=1to10:print"";:printtab(11)"[155]"n$(t)"":print"[145][145][149]"
  340. 9004 printtab(22)hs(t)
  341. 9005 print"";:t=t+1:printtab(13)"[153]"n$(t)"":print"[145][145][149]"
  342. 9006 printtab(24)hs(t):next
  343. 9007 ifsc>hsthen9009
  344. 9008 goto9020
  345. 9009 i=0
  346. 9010 i=i+1:ifsc>hs(i)thenhb=i:goto9012
  347. 9011 goto9010
  348. 9012 fora=10toistep-1:hs(a)=hs(a-1):n$(a)=n$(a-1):nexta
  349. 9013 hs(hb)=sc:sc=0:n$(hb)=n$:print"";
  350. 9014 goto9003
  351. 9020 poke53265,155
  352. 9021 j=peek(56320):ifj=111then10000
  353. 9022 goto9021
  354. 9200 rem enter name
  355. 9201 print"[147]":poke53283,7
  356. 9202 printtab(13)"[149]congratulations"
  357. 9203 printtab(6)"[151]you are one of the best today"
  358. 9204 printtab(9)"[155]please enter your name"
  359. 9205 printtab(13)"[154][220][168][220][168][220][168][220][168][220][168][220][168][220][168]"
  360. 9206 printtab(13)"[168]            [220]"
  361. 9207 printtab(13)"[220] [149]a          [154][168]"
  362. 9208 printtab(13)"[168] [159]^          [154][220]"
  363. 9209 printtab(13)"[220][168][220][168][220][168][220][168][220][168][220][168][220][168]"
  364. 9210 printtab(11)"[149]your score :"sc""
  365. 9212 si=54272:pokesi+24,31:pokesi+23,243:pokesi+6,240:pokesi+13,240
  366. 9213 pokesi+5,0:pokesi+12,0
  367. 9214 pokesi+3,8:pokesi+10,8:pokesi+1,2:pokesi+8,2:pokesi,100:pokesi+7,105
  368. 9215 pokesi+4,65:pokesi+11,65:pokesi+22,0:pokesi+18,0
  369. 9220 a=65:n$="":x=15
  370. 9222 j=peek(56320)
  371. 9223 ifj=119thenx=x+1:goto9240
  372. 9224 ifj=123thenx=x-1:goto9240
  373. 9225 ifj=126thena=a+1:goto9243
  374. 9226 ifj=125thena=a-1:goto9243
  375. 9228 ifj=111then9250
  376. 9229 goto9222
  377. 9230 b=(a-64)*3:pokesi+22,b:c=a
  378. 9231 poke211,x:poke214,12:sys58640:h$=chr$(c):print"[149]"h$"";
  379. 9232 poke211,x-1:poke214,13:sys58640:print"[159] ^ ";
  380. 9233 goto9222
  381. 9240 ifx=14thenx=15:goto9230
  382. 9241 ifx=25thenx=24:goto9230
  383. 9242 c=32:goto9231
  384. 9243 ifa=64thena=65:goto9230
  385. 9244 ifa=91thena=90:goto9230
  386. 9245 goto9230
  387. 9250 d=0
  388. 9251 d=d+1:a=peek(49646+d):e=a+64:ife=96thene=32
  389. 9252 n$=n$+chr$(e):ifd=10then9254
  390. 9253 goto9251
  391. 9254 pokesi+23,240:pokesi+24,0:goto9002
  392. 10000 rem titelbild
  393. 10001 poke53281,0:print"[147][151]":poke53265,65:pokev+21,0
  394. 10002 poke53282,0:poke53283,7
  395. 10006 printtab(11)"qruwxwxu]![u[146] $%]x]x[146]*"
  396. 10007 printtab(11)"[151]stvyzyzv_#s\[146] &'^z^z[146]"
  397. 10008 print""
  398. 10009 printtab(9)"@ [149]cobra soft inc. 1988":print""
  399. 10011 printtab(7)"[151]designed and programmed by":print"";
  400. 10012 printtab(13)"[155]joerg sieslack":print""
  401. 10013 printtab(2)"[149]sprite interrupt: arnd paulsen 1988":print"";
  402. 10014 printtab(11)"[150]press fire to play":print""
  403. 10015 print" [153]hi score [149]000000   [153]stage [149]01   [153]lives [149]03"
  404. 10016 a=peek(1202):b=peek(1203):d=13
  405. 10017 y=a*25+b*200:gosub10024
  406. 10018 ifz>9999thend=10:goto10021
  407. 10019 ifz>999thend=11:goto10021
  408. 10020 ifz>99thend=12:goto10021
  409. 10021 poke211,d:poke214,22:sys58640:print"[149]"z"";
  410. 10022 poke211,d:sys58640
  411. 10023 print"[149]0";:goto10026
  412. 10024 c=peek(1200):e=peek(1201):x=c*25+e*200:ifx>ythenz=x:goto10029
  413. 10025 z=y:return
  414. 10026 sys21651:sys18633:sys21911:poke53265,155:poke54275,7:sys23172
  415. 10027 poke53265,65:poke53283,8:fori=0to24:poke54272+i,0:next:pokev+21,255
  416. 10028 goto98
  417. 10029 poke1202,peek(1200):poke1203,peek(1201):return
  418.